L=8
K=5
alpha = K/100
sequenceLength = 3000000
sampleSize1 = L*40
time1 = numeric(sampleSize1)
for(i in 1:sampleSize1){
  x = runif(sequenceLength, 0, 100); # Generate the sequence to be sorted
  time1[i] = system.time(x1 <- sort(x, method = "quick"),  gcFirst = TRUE)[1];
}
sampleSize2 = L*35
time2 = numeric(sampleSize2)
for(i in 1:sampleSize2){
  x = runif(sequenceLength, 0, 100); # Generate the sequence to be sorted
  time2[i] = system.time(x2 <- sort(x, method = "shell"), gcFirst = TRUE)[1];
}

t.test(x=time1,y=time2,alternative='less',paired=FALSE,var.equal=FALSE,conf.level=1-alpha)